home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 22 / Cream of the Crop 22.iso / utility / sccan.zip / UNIT1.DFM / UNIT1.txt
Text File  |  1996-07-09  |  12KB  |  373 lines
  1. object Main: TMain
  2.   Left = 316
  3.   Top = 192
  4.   Width = 504
  5.   Height = 417
  6.   Caption = 'SCAN : Table Scanning Utility, Ver 1.1'
  7.   Font.Color = clWindowText
  8.   Font.Height = -13
  9.   Font.Name = 'System'
  10.   Font.Style = []
  11.   Menu = MainMenu1
  12.   PixelsPerInch = 96
  13.   Position = poScreenCenter
  14.   TextHeight = 16
  15.   object DBGrid1: TDBGrid
  16.     Left = 0
  17.     Top = 66
  18.     Width = 496
  19.     Height = 140
  20.     Align = alTop
  21.     DataSource = DataSource1
  22.     Font.Color = clBlack
  23.     Font.Height = -11
  24.     Font.Name = 'MS Sans Serif'
  25.     Font.Style = []
  26.     ParentFont = False
  27.     TabOrder = 0
  28.     TitleFont.Color = clBlack
  29.     TitleFont.Height = -11
  30.     TitleFont.Name = 'MS Sans Serif'
  31.     TitleFont.Style = []
  32.     OnEnter = DBGrid1Enter
  33.   end
  34.   object DBGrid2: TDBGrid
  35.     Left = 0
  36.     Top = 231
  37.     Width = 496
  38.     Height = 140
  39.     Align = alClient
  40.     DataSource = DataSource2
  41.     Font.Color = clBlack
  42.     Font.Height = -11
  43.     Font.Name = 'MS Sans Serif'
  44.     Font.Style = []
  45.     ParentFont = False
  46.     TabOrder = 1
  47.     TitleFont.Color = clBlack
  48.     TitleFont.Height = -11
  49.     TitleFont.Name = 'MS Sans Serif'
  50.     TitleFont.Style = []
  51.     OnEnter = DBGrid2Enter
  52.   end
  53.   object Panel1: TPanel
  54.     Left = 0
  55.     Top = 0
  56.     Width = 496
  57.     Height = 41
  58.     Align = alTop
  59.     Font.Color = clBlack
  60.     Font.Height = -11
  61.     Font.Name = 'MS Sans Serif'
  62.     Font.Style = []
  63.     ParentFont = False
  64.     TabOrder = 2
  65.     object SpeedHelp: TSpeedButton
  66.       Left = 248
  67.       Top = 8
  68.       Width = 25
  69.       Height = 25
  70.       Hint = 'Help'
  71.       Glyph.Data = {
  72.         78010000424D7801000000000000760000002800000020000000100000000100
  73.         04000000000000000000120B0000120B00000000000000000000000000000000
  74.         800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
  75.         FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
  76.         3333333333FFFFF3333333333F797F3333333333F737373FF333333BFB999BFB
  77.         33333337737773773F3333BFBF797FBFB33333733337333373F33BFBFBFBFBFB
  78.         FB3337F33333F33337F33FBFBFB9BFBFBF3337333337F333373FFBFBFBF97BFB
  79.         FBF37F333337FF33337FBFBFBFB99FBFBFB37F3333377FF3337FFBFBFBFB99FB
  80.         FBF37F33333377FF337FBFBF77BF799FBFB37F333FF3377F337FFBFB99FB799B
  81.         FBF373F377F3377F33733FBF997F799FBF3337F377FFF77337F33BFBF99999FB
  82.         FB33373F37777733373333BFBF999FBFB3333373FF77733F7333333BFBFBFBFB
  83.         3333333773FFFF77333333333FBFBF33333333333777773333330000}
  84.       NumGlyphs = 2
  85.       ParentShowHint = False
  86.       ShowHint = True
  87.       OnClick = SpeedHelpClick
  88.     end
  89.     object SpeedClose: TSpeedButton
  90.       Left = 272
  91.       Top = 8
  92.       Width = 25
  93.       Height = 25
  94.       Hint = 'Exit'
  95.       Glyph.Data = {
  96.         78010000424D7801000000000000760000002800000020000000100000000100
  97.         04000000000000000000120B0000120B00000000000000000000000000000000
  98.         800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
  99.         FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00330000000000
  100.         03333377777777777F333301111111110333337F333333337F33330111111111
  101.         0333337F333333337F333301111111110333337F333333337F33330111111111
  102.         0333337F333333337F333301111111110333337F333333337F33330111111111
  103.         0333337F3333333F7F333301111111B10333337F333333737F33330111111111
  104.         0333337F333333337F333301111111110333337F33FFFFF37F3333011EEEEE11
  105.         0333337F377777F37F3333011EEEEE110333337F37FFF7F37F3333011EEEEE11
  106.         0333337F377777337F333301111111110333337F333333337F33330111111111
  107.         0333337FFFFFFFFF7F33330000000000033333777777777773330000}
  108.       NumGlyphs = 2
  109.       ParentShowHint = False
  110.       ShowHint = True
  111.       OnClick = SpeedCloseClick
  112.     end
  113.     object BitBtn1: TBitBtn
  114.       Left = 313
  115.       Top = 7
  116.       Width = 80
  117.       Height = 26
  118.       Hint = 'Compare selected tables'
  119.       Caption = '&Compare'
  120.       Font.Color = clBlack
  121.       Font.Height = -11
  122.       Font.Name = 'MS Sans Serif'
  123.       Font.Style = []
  124.       ParentFont = False
  125.       ParentShowHint = False
  126.       ShowHint = True
  127.       TabOrder = 0
  128.       OnClick = BitBtn1Click
  129.       Glyph.Data = {
  130.         76010000424D7601000000000000760000002800000020000000100000000100
  131.         04000000000000010000130B0000130B00000000000000000000000000000000
  132.         800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
  133.         FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333303
  134.         333333333333337FF3333333333333903333333333333377FF33333333333399
  135.         03333FFFFFFFFF777FF3000000999999903377777777777777FF0FFFF0999999
  136.         99037F3337777777777F0FFFF099999999907F3FF777777777770F00F0999999
  137.         99037F773777777777730FFFF099999990337F3FF777777777330F00FFFFF099
  138.         03337F773333377773330FFFFFFFF09033337F3FF3FFF77733330F00F0000003
  139.         33337F773777777333330FFFF0FF033333337F3FF7F3733333330F08F0F03333
  140.         33337F7737F7333333330FFFF003333333337FFFF77333333333000000333333
  141.         3333777777333333333333333333333333333333333333333333}
  142.       NumGlyphs = 2
  143.       Style = bsNew
  144.     end
  145.     object DBNavigator1: TDBNavigator
  146.       Left = 8
  147.       Top = 8
  148.       Width = 241
  149.       Height = 25
  150.       DataSource = DataSource1
  151.       Ctl3D = False
  152.       ParentCtl3D = False
  153.       ParentShowHint = False
  154.       ShowHint = True
  155.       TabOrder = 1
  156.     end
  157.     object BitBtn2: TBitBtn
  158.       Left = 400
  159.       Top = 7
  160.       Width = 80
  161.       Height = 26
  162.       Hint = 'Clear the table selections'
  163.       Caption = 'Clear'
  164.       ParentShowHint = False
  165.       ShowHint = True
  166.       TabOrder = 2
  167.       OnClick = BitBtn2Click
  168.       Glyph.Data = {
  169.         78010000424D7801000000000000760000002800000020000000100000000100
  170.         04000000000000000000120B0000120B00000000000000000000000000000000
  171.         800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
  172.         FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00500005000555
  173.         555557777F777555F55500000000555055557777777755F75555005500055055
  174.         555577F5777F57555555005550055555555577FF577F5FF55555500550050055
  175.         5555577FF77577FF555555005050110555555577F757777FF555555505099910
  176.         555555FF75777777FF555005550999910555577F5F77777775F5500505509990
  177.         3055577F75F77777575F55005055090B030555775755777575755555555550B0
  178.         B03055555F555757575755550555550B0B335555755555757555555555555550
  179.         BBB35555F55555575F555550555555550BBB55575555555575F5555555555555
  180.         50BB555555555555575F555555555555550B55555555555555750000}
  181.       NumGlyphs = 2
  182.       Style = bsNew
  183.     end
  184.   end
  185.   object Panel2: TPanel
  186.     Left = 0
  187.     Top = 41
  188.     Width = 496
  189.     Height = 25
  190.     Align = alTop
  191.     Alignment = taLeftJustify
  192.     Caption = '  Master table'
  193.     Font.Color = clBlack
  194.     Font.Height = -11
  195.     Font.Name = 'MS Sans Serif'
  196.     Font.Style = []
  197.     ParentFont = False
  198.     TabOrder = 3
  199.     object SpeedButton1: TSpeedButton
  200.       Left = 72
  201.       Top = 0
  202.       Width = 25
  203.       Height = 25
  204.       Hint = 'Select the MASTER table'
  205.       Font.Color = clBlack
  206.       Font.Height = -11
  207.       Font.Name = 'MS Sans Serif'
  208.       Font.Style = []
  209.       Glyph.Data = {
  210.         76010000424D7601000000000000760000002800000020000000100000000100
  211.         04000000000000010000130B0000130B00000000000000000000000000000000
  212.         800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
  213.         FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF0033333333B333
  214.         333B33FF33337F3333F73BB3777BB7777BB3377FFFF77FFFF77333B000000000
  215.         0B3333777777777777333330FFFFFFFF07333337F33333337F333330FFFFFFFF
  216.         07333337F3FF3FFF7F333330F00F000F07333337F77377737F333330FFFFFFFF
  217.         07333FF7F3FFFF3F7FFFBBB0F0000F0F0BB37777F7777373777F3BB0FFFFFFFF
  218.         0BBB3777F3FF3FFF77773330F00F000003333337F773777773333330FFFF0FF0
  219.         33333337F3FF7F37F3333330F08F0F0B33333337F7737F77FF333330FFFF003B
  220.         B3333337FFFF77377FF333B000000333BB33337777777F3377FF3BB3333BB333
  221.         3BB33773333773333773B333333B3333333B7333333733333337}
  222.       NumGlyphs = 2
  223.       ParentFont = False
  224.       ParentShowHint = False
  225.       ShowHint = True
  226.       OnClick = SpeedButton1Click
  227.     end
  228.     object Label1: TLabel
  229.       Left = 104
  230.       Top = 6
  231.       Width = 56
  232.       Height = 13
  233.       Caption = 'Select table'
  234.       Font.Color = clNavy
  235.       Font.Height = -11
  236.       Font.Name = 'MS Sans Serif'
  237.       Font.Style = []
  238.       ParentFont = False
  239.     end
  240.   end
  241.   object Panel3: TPanel
  242.     Left = 0
  243.     Top = 206
  244.     Width = 496
  245.     Height = 25
  246.     Align = alTop
  247.     Alignment = taLeftJustify
  248.     Caption = '  Table being compared to Master'
  249.     Font.Color = clBlack
  250.     Font.Height = -11
  251.     Font.Name = 'MS Sans Serif'
  252.     Font.Style = []
  253.     ParentFont = False
  254.     TabOrder = 4
  255.     object SpeedButton2: TSpeedButton
  256.       Left = 168
  257.       Top = 0
  258.       Width = 25
  259.       Height = 25
  260.       Hint = 'Select another table'
  261.       Glyph.Data = {
  262.         76010000424D7601000000000000760000002800000020000000100000000100
  263.         04000000000000010000130B0000130B00000000000000000000000000000000
  264.         800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
  265.         FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF0033333333B333
  266.         333B33FF33337F3333F73BB3777BB7777BB3377FFFF77FFFF77333B000000000
  267.         0B3333777777777777333330FFFFFFFF07333337F33333337F333330FFFFFFFF
  268.         07333337F3FF3FFF7F333330F00F000F07333337F77377737F333330FFFFFFFF
  269.         07333FF7F3FFFF3F7FFFBBB0F0000F0F0BB37777F7777373777F3BB0FFFFFFFF
  270.         0BBB3777F3FF3FFF77773330F00F000003333337F773777773333330FFFF0FF0
  271.         33333337F3FF7F37F3333330F08F0F0B33333337F7737F77FF333330FFFF003B
  272.         B3333337FFFF77377FF333B000000333BB33337777777F3377FF3BB3333BB333
  273.         3BB33773333773333773B333333B3333333B7333333733333337}
  274.       NumGlyphs = 2
  275.       ParentShowHint = False
  276.       ShowHint = True
  277.       OnClick = SpeedButton2Click
  278.     end
  279.     object Label2: TLabel
  280.       Left = 201
  281.       Top = 6
  282.       Width = 56
  283.       Height = 13
  284.       Caption = 'Select table'
  285.       Font.Color = clNavy
  286.       Font.Height = -11
  287.       Font.Name = 'MS Sans Serif'
  288.       Font.Style = []
  289.       ParentFont = False
  290.     end
  291.   end
  292.   object Table1: TTable
  293.     Left = 48
  294.     Top = 120
  295.   end
  296.   object Table2: TTable
  297.     Left = 48
  298.     Top = 288
  299.   end
  300.   object DataSource1: TDataSource
  301.     DataSet = Table1
  302.     Left = 80
  303.     Top = 120
  304.   end
  305.   object DataSource2: TDataSource
  306.     DataSet = Table2
  307.     Left = 80
  308.     Top = 288
  309.   end
  310.   object OpenDialog1: TOpenDialog
  311.     Filter = 'Paradox|*.db'
  312.     Title = 'Select MASTER table'
  313.     Left = 16
  314.     Top = 120
  315.   end
  316.   object OpenDialog2: TOpenDialog
  317.     Filter = 'Paradox|*.db'
  318.     Title = 'Select table being compared'
  319.     Left = 16
  320.     Top = 288
  321.   end
  322.   object MainMenu1: TMainMenu
  323.     Left = 112
  324.     Top = 120
  325.     object File1: TMenuItem
  326.       Caption = '&File'
  327.       object SelectMastertable1: TMenuItem
  328.         Caption = 'Select &Master table..'
  329.         OnClick = SpeedButton1Click
  330.       end
  331.       object SelecttabletoComparewithMaster1: TMenuItem
  332.         Caption = 'Select &other table to compare with Master..'
  333.         OnClick = SpeedButton2Click
  334.       end
  335.       object N3: TMenuItem
  336.         Caption = '-'
  337.       end
  338.       object Comparethetables1: TMenuItem
  339.         Caption = '&Compare the tables..'
  340.         OnClick = BitBtn1Click
  341.       end
  342.       object N1: TMenuItem
  343.         Caption = '-'
  344.       end
  345.       object Cleartableselections1: TMenuItem
  346.         Caption = 'Clear table &selections..'
  347.         OnClick = BitBtn2Click
  348.       end
  349.       object N2: TMenuItem
  350.         Caption = '-'
  351.       end
  352.       object Exit1: TMenuItem
  353.         Caption = 'E&xit'
  354.         OnClick = SpeedCloseClick
  355.       end
  356.     end
  357.     object Help1: TMenuItem
  358.       Caption = '&Help'
  359.       object Contents: TMenuItem
  360.         Caption = '&Contents..'
  361.         OnClick = SpeedHelpClick
  362.       end
  363.       object N4: TMenuItem
  364.         Caption = '-'
  365.       end
  366.       object About1: TMenuItem
  367.         Caption = '&About'
  368.         OnClick = About1Click
  369.       end
  370.     end
  371.   end
  372. end
  373.